home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / mtex / mtexdemo.tex (.txt) < prev    next >
Encoding:
Texinfo Document  |  1990-08-16  |  11.1 KB  |  281 lines
  1. %format plain
  2. %---------------------------------------------------
  3. %\input verbatim
  4. % macros for verbatim scanning
  5. % im wesentlichen dem file MANHDR TEX von DEK entnommen
  6. \catcode`@=11
  7. \def\tt{\fam\ttfam\tentt}%
  8. \newskip\ttglue  \ttglue=.5em plus .25em minus .15em
  9. \chardef\other=12
  10. \def\ttverbatim{\begingroup
  11.   \catcode`\\=\other
  12.   \catcode`\{=\other
  13.   \catcode`\}=\other
  14.   \catcode`\$=\other
  15.   \catcode`\&=\other
  16.   \catcode`\#=\other
  17.   \catcode`\%=\other
  18.   \catcode`\%=\other
  19.   \catcode`\_=\other
  20.   \catcode`\~=\other
  21.   \catcode`\"=\other
  22.   \parskip \z@
  23.   \obeyspaces \obeylines \tt}
  24. \def\begintt{$$\let\par=\endgraf \ttverbatim
  25.   \catcode`\|=0 \rightskip-5pc \ttfinish}
  26. {\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
  27.   |obeylines % end of line is active
  28.   |gdef|ttfinish#1~~M#2\endtt{|vbox{#2}|endgroup$$}}
  29. \catcode`\|=\active
  30. {\obeylines \gdef|{\ttverbatim \spaceskip\ttglue \let~~M=\  \let|=\endgroup}}
  31. %\def\ttspace{{\tt\hskip\ttglue}}
  32. \def\vrt{\hbox{\tt\char`\|}} % vertical line
  33. \def\dn{\hbox{\tt\char'14}} % downward arrow
  34. \def\up{\hbox{\tt\char'13}} % upward arrow
  35. \def\]{\hbox{\tt\char`\ }} % visible space
  36. \catcode`@=12 % at signs are no longer letters
  37. \def\verbatimon{\catcode`\|=\active}
  38. \def\verbatimoff{\catcode`\|=\other}
  39. \verbatimoff
  40. %--------------------------------------------------- end of verbatim.tex
  41. \nopagenumbers
  42. \headline{\eightrm \hfill Beispiele f"ur den Notensatz mit \TeX
  43. \hfill\hbox to 0pt{\hss Schofer/Steinbach 1987}}
  44. %---------------------------------------------------
  45. \input mtex
  46. %---------------------------------------------------
  47. \let\os=\~
  48. \let\us=\_
  49. \def\ks#1{\noindent\hbox{{\tt \char\hex5C}\bf#1}}
  50. \def\bs{\noindent\hbox{{\tt \char\hex5C}}}%Backslash
  51. \def\lk{\hbox{{\tt\char\hex7B}}}%linke Klammer auf
  52. \def\strich{{\hbox{\tt \char\hex7C}}}
  53. \def\dpkt{{\hbox{\tt \char\hex3A}}}%Doppelpunkt
  54. \def\gleich{{\hbox{\tt \char\hex3D}}}%
  55. \def\slash{\noindent{\hbox{\tt \char\hex2F}}}
  56. \def\blank{{\hbox{\tt \char\hex20}}}
  57. \let\leftbrace=\{
  58. \def\{{\ifmmode\leftbrace\else{$\leftbrace$}\fi}
  59. \let\rightbrace=\}
  60. \def\}{\ifmmode\rightbrace\else{$\rightbrace$}\fi}
  61. \verbatimon
  62. \normalbaselines
  63. \openup\jot
  64. %\universal %ist f"ur MTEX  etwas zu breit
  65. \small      %so gehts vielleicht besser
  66. \title{\vbox{\hbox to 0pt{\hss 6 Suiten f"ur Cello Solo\hss}
  67.              \hbox to 0pt{\hss Suite II Menuet I\hss}}}
  68. \poet{\vtop{\hbox to 0pt{F"ur Viola "ubertragen \hss}
  69.             \hbox to 0pt{von Franz Schmidtner\hss}}}
  70. \composer{Johann Sebastian Bach}
  71. \parindent 20pt
  72. \beginsong\alto\F\meter3/4%
  73. \rchord \h5\h7\h9\endchord\v{10}\|%
  74. \two{\group{\\{\a{10}}\\{\a9}\\{\a{10}}\\{\a8}}{\\{10}\\{9}\\{10}\\{8}}%
  75. \ubeam14\uslur12\go}{\rchord \a4\a6\endchord}%
  76. \v9\|\rchord\v3\v5\endchord\v8%
  77. \group{\\{\a7}\\{\a6}}{\\{7}\\{6}}\lbeam12\go\|%
  78. \two{\group{\\{\a7}\\{\a6}\\{\a5}\\{\x4\a4}\\{\n3\a3}\\{\a2}}
  79. {\\{7}\\{6}\\{5}\\{4}\\{3}\\{2}}\ubeam16\uslur13\go}%
  80. {\a2}\|\rchord \h5\h7\h9\endchord\v{10}\|%
  81. \two{\group{\\{\a{10}}\\{\a9}\\{\tenuto\a{10}}\\{\tenuto\a8\noaccent}}
  82. {\\{10}\\{9}\\{10}\\{8}}\ubeam14\uslur12\go}{\a6}%
  83. \v{11}\|\rchord\v7\v9\endchord\rchord\v3\v7\v{12}\endchord
  84. \rchord\v1\v8\v{13}\endchord\|\rchord\h2\.1\h6\.1\x{11}\h{11}\.1\endchord
  85. \leftrightrepeat
  86. \rchord\h9\h{13}\endchord
  87. {\def\beamlist{\\{1-3,}\\{2-3,}}%
  88. \group{\\{\a{12}}\\{\s{13}}\\{\s{14}}}{\\{12}\\{13}\\{14}}\lbeam13%
  89. \uslur13\go}\|
  90. \two{\group{\\{\a{13}}\\{\a{12}}\\{\x{11}\a{11}}\\{\a{13}}\\{\a9}\\{\a8}}
  91. {\\{13}\\{12}\\{11}\\{13}\\{9}\\{8}}\ubeam16\uslur15\go}{\a8}\|%
  92. \two{\group{\\{\v9}\\{\v{12}}}{\\{9}\\{12}}\uslur12\go}{\h7}%
  93. \x{11}\two{\v{11}}{\v6}\|%
  94. \two{\group{\\{\a{15}}\\{\a{14}}\\{\a{13}}\\{\a{14}}\\{\a{12}}%
  95. \\{\n{11}\a{11}}}
  96. {\\{15}\\{14}\\{13}\\{14}\\{12}\\{11}}\ubeam16\uslur15\go}{\a5}\|%
  97. \two{\h{10}}{\group{\\{\v8}\\{\v7}}{\\{8}\\{7}}\lslur12\go}%
  98. \two{\v{11}}{\v6}\|%
  99. \two{\group{\\{\a9}\\{\a8}\\{\a9}\\{\a7}}{\\{9}\\{8}\\{9}\\{7}}\ubeam14%
  100. \go}{\a7}%
  101. \rchord\v{12}\v6\v3\endchord\|\rchord\v{11}\v7\v2\endchord
  102. \group{\\{\a{10}}\\{\a9}\\{\a8}\\{\a9}}{\\{10}\\{9}\\{8}\\{9}}\lbeam14\go
  103. \|\group{\\{\a7}\\{\a6}\\{\a7}\\{\a9}\\{\a8}\\{\a{10}}}
  104. {\\{7}\\{6}\\{7}\\{9}\\{8}\\{10}}\lbeam16\go\|%
  105. \x7\two{\tr\h9\noaccent}{\h7}%
  106. \two{\v{10}}{\pv}\|\b6%
  107. \two{\group{\\{\a8}\\{\a7}\\{\a8}\\{\a6}}
  108. {\\{8}\\{7}\\{8}\\{6}}\ubeam14\uslur12\go}{\a6}%
  109. \x7\tr\v7\noaccent\|\rchord\v{12}\v8\v3\endchord\rchord\v{11}\v8\v4\endchord
  110. \two{\group{\\{\a{10}}\\{\a9}}{\\{10}\\{9}}\ubeam12\uslur12\go}{\v5}\|%
  111. \group{\\{\rchord\a{11}\a5\a1\endchord
  112. }\\{\a{10}}\\{\a9}\\{\a{10}}\\{\a8}\\{\a{10}}}
  113. {\\{1}\\{10}\\{9}\\{10}\\{8}\\{10}}\lbeam16\go\|%
  114. \two{\group{\\{\v{12}}\\{\x{11}\v{11}}}
  115. {\\{12}\\{11}}\uslur12\go}{\v8\pv}\n7%
  116. \two{\v{12}}{\v7}\|\x4%
  117. \two{\group{\\{\a8}\\{\a7}\\{\a8}\\{\a6}}
  118. {\\{8}\\{7}\\{8}\\{6}}\ubeam14\uslur12\go}{\a4}%
  119. \two{\v7}{\v5}\|%
  120. \group{\\{\a1}\\{\a8}}{\\{1}\\{8}}\lbeam12\go\two{\tr\v6\.1}{\v2\.1}%
  121. \two{\a5}{\raise-1.5\nhh\hbox{\pa}}\|\lchord\h5\.1\h2\.1\h{-2}\.1\endchord
  122. \rightrepeat
  123. \endsong
  124. \parindent0pt
  125. {\eightrm
  126. Aus: Johann Sebastian Bach, Sechs Suiten, f"ur Viola bearbeitet von
  127. Franz Schmidtner, Musikverlag Hans Sikorski, Hamburg.
  128. \vskip0.5cm
  129. F"ur dieses Musikst"uck lautet die Eingabe:
  130. \vskip0.5cm
  131. %%%%%%%%%%%%%%%%%%
  132. %%%%% bach %%%%%%%
  133. %%%%%%%%%%%%%%%%%%
  134. {\bf !!}
  135. \ks{title}\{6 Suiten f"ur Cello Solo
  136. \bs{atop} Suite II Menuet I\}\par
  137. \ks{composer}\{Johann Sebastian Bach\}
  138. \ks{poet}\{F"ur Viola "ubertragen \bs{atop} von Franz Schmidtner\}\par
  139. \ks{alto}\ks{F}\ks{meter}\{{\bf3}\slash {\bf4}\}\ks{two}
  140. \par{\bf \{\ \ \ \ks{chord}\{2`d f a\} 4h\strich
  141. \ks{chord}\{'8c `e\}\slash\ \slash\ \slash\ 4a\strich
  142. \ks{chord}\{4,h `d\} g\ks{beam}\{8f e\}\strich
  143. ,8a \slash\ \slash\ \slash\ \slash\ \slash\ \strich
  144. \ks{chord}\{`2d f a\} 4h\strich  8e
  145. \slash\ \slash\ \slash\
  146. {`}{`}4c \strich\par
  147. \ks{chord}\{4`f a\}\ks{chord}\{,h `f {`}{`}d\}
  148. \ks{chord}\{,g `g {`}{`}e\}\strich
  149. \par\ks{chord}\{2.,a ,`e ,x{`}{`}c\}
  150. \dpkt\strich\strich\dpkt
  151. \par\ks{chord}\{2`a {`}{`}e\}\ks{slur}\{\ks{beam}\{8d 6e f\}\}\strich
  152. 8`g\slash\ \slash\ \slash\ \slash\ \slash\ \strich
  153. 2f \slash\ 4e\strich 8d \slash\ \slash\ \slash\ \slash\ \slash\strich
  154. \ks{slur}\{4g f\}e\strich\par
  155.  8f\slash\ \slash\ \slash\
  156. \ks{chord}\{4,h `e {`}{`}d\}\strich\ks{chord}\{4,a `f {`}{`}c\}
  157. \ks{beam}\{8`h a g a\}\strich\par \ks{beam}\{8f e f a g h\}\strich
  158. 2xf 4p \strich b8e \slash\ \slash\ \slash\
  159. 4xf \ks{tr}\strich\ks{chord}\{4,h `g {`}{`}d\}
  160. \ks{chord}\{4`c g {`}{`}c\} `d\slash\ \strich
  161. \par\ks{beam}\{\ks{chord}\{,8g `d {`}{`}c\} 8`h a h g h\}\strich
  162. 4g p nf\strich 8xc \slash\ \slash\ \slash\ 4d\strich
  163. \par\ks{beam}\{8,g `g\} 4.,a 8p\strich \ \slash\
  164. \dpkt\strich\strich\ \ \}\par
  165. \{\ \ \slash\ \slash\ \strich
  166. \ks{beam}\{\ks{slur}\{8{`}h a\} h g\}\slash\ \strich
  167. \slash\ \slash\ \slash\ \slash\ \strich
  168. \ks{beam}\{\ks{slur}\{'8f e d\}xc ,nh a\}\strich
  169. \slash\ \slash\ \strich\par\ks{beam}\{\ks{slur}\{8h a\}\ks{tenuto} h
  170. f \ks{noaccent}\ \slash\ \}\strich
  171. \slash\ \slash\ \slash\ \strich
  172. \slash\ \dpkt\strich\strich\dpkt\par
  173. \slash\ \slash\ \slash\ \slash\ \strich
  174. \ks{beam}\{\ks{slur}\{8{`}{`}e d xc e `a\}g\}\strich
  175. \ks{slur}\{`4a {`}{`}d\}xc\strich
  176. \ks{beam}\{\ks{slur}\{8{`}{`}g f e f d \}nc\}\strich\par
  177. `2h\slash\ {`}{`}4c\strich \ks{beam}\{8`a g a f\}\slash\ \strich
  178. \slash\ \slash\ \slash\ \slash\ \slash\strich
  179. \slash\ \slash\ \slash\ \slash\ \slash\ \slash\strich\par
  180. 2`a \ks{tr} 4h\strich
  181. \ks{beam}\{\ks{slur}\{8g f\} g e\}\slash\strich
  182. \slash\ \slash\ \ks{beam}\{\ks{slur}\{8h a\}\}\strich
  183. \slash\ \slash\ \slash\ \slash\ \slash\ \slash\ \strich\par
  184. \ks{slur}\{{`}{`}4d `a\} {`}{`}d\strich
  185. \ks{beam}\{\ks{slur}\{8`g f\} g e\} 4f\strich
  186. \slash\ \slash\ 4.e \ks{tr} 8d\strich
  187. \ks{chord}\{2.,d .a `.d\}
  188.  \dpkt\strich\strich
  189. \ \ \}     }{\bf!!}
  190. \vfill\eject
  191. \vskip2cm
  192. \title{Lobe den Herren}
  193. \composer{Hugo Distler}
  194. \def\@#1#2{{$\hbox{#1\hfill}\atop\hbox{#2\hfill}$}}
  195. \def\lv{{\leaders\hrule \hskip1cm plus 1fill}}
  196. \parindent 40pt
  197. \voice{Sopran}%
  198. \universal
  199. \beginsong\vio\G\~r{{\rm Schnell}}{\vrule height 7\nhh width0pt%
  200. \gluebrule}\meter3/4%
  201. \~{\mezzoforte}\_{\@{Lo-}{Mei-}}{\v2}%
  202. \_{\@{be}{ne}}{\v2}%
  203. \_{\@{den}{ge - }}{\v6}\|%
  204. \_{\@{Her-}{lie - }}{\v4\.1}\_{\@{ren, }{be - }}{\a3}%
  205. \_l{\@{den}{te }}{\v2}\|%
  206. \_l{\@{m"ach - }{See - }}{\v1}\_{\@{ti - }{le, }}{\v0}%
  207. \_{\@{gen }{das }}{\v{-1}}\|%
  208. \_{\@{K"o - }{ist }}{\h0}%
  209. \group{\\{\_n{\@{nig \lv }{mein \lv }}{\v1}}\\{\|\meter2/4}\\{\v1}}
  210. {\\{1}\\{0}\\{1}}\lslur13\go\_{\@{der }{Be- }}{\v2}\|\meter4/4%
  211. \_{\@{Eh - }{geh - }}{\h3}\_{\@{ren!}{ren.}}{\h2}\rightrepeat\meter3/4%
  212. %Ende Wiederholung
  213. \_{Kom-}\~{\forte}{\v6}\_{met}{\v6}\_{zu}{\v6}\|%
  214. \_{Hauf!}{\h7\.1}\caesura\|\_l{Psal - }{\v4}\_{ter}{\a5}%
  215. \_l{und }{\a5}%
  216. \group{\\{\_n{Har\hskip40pt - \hskip40pt -\hskip 40pt - \hskip40pt
  217. }{\v6}}\\{\|}\\{\a6}\\{\a7}\\{\a6}\\{\a4}\\{\v6}%
  218. \\{\|}\\{\a6}\\{\a7}\\{\v6\.1}\\{\a7}\\{\|}\\{\v6\.1}}
  219. {\\{6}\\{8}\\{6}\\{7}\\{6}\\{4}\\{6}\\{8}\\{6}\\{7}\\{6}\\{7}\\{8}\\{6}}%
  220. \lbeam36\lbeam9{10}\uslur13\uslur79\uslur1{14}\go
  221. \_{fe,}{\a5}\_l{wacht}{\v4}\|%
  222. \~{\piano}\_{auf, }{\h3}\group{\\{\_n{wacht}{\caesura\a4}}\\{\a2}}
  223. {\\{4}\\{2}}\ubeam12\go\|\~{\dec}\_{auf,}{\h3}%
  224. \group{\\{\_n{wacht}\~{zart}{\caesura\a4}}\\{\a2}}
  225. {\\{4}\\{2}}\ubeam12\go\|\~{\dec}\_{auf,}{\h6\.1}\caesura\|%
  226. \~{\forte}\_{las-}{\v{-1}}\_{set}{\v0\.1}\_{den}{\a1}\|%
  227. \meter4/4\_{Lob - }{\h2}\_{ge - }{\v3}\_{sang}{\v4}\|\meter7/4%
  228. \group{\\{\_n{h"o \hskip20pt - \hskip20pt - \hskip20pt
  229. - }{\h5}}\\{\v4\.1}\\{\a3}\\{\v2}\\{\h3}}
  230. {\\{5}\\{4}\\{3}\\{2}\\{9}}\uslur15\go
  231. \|\meter3/4\_{ren!}{\h2\.1}\=\endsong
  232. \parindent=0pt \eightrm
  233. Aus: R. Baum,``Geselliges Chorbuch I'' B"arenreiter-Verlag, Kassel und
  234. Basel.
  235. \vskip1cm \rm Auch zu diesem St"uck sei die Eingabe aufgef"uhrt:
  236. \vskip1cm
  237. %%%%%%%%%%%%%%%%
  238. %%%%%% distler%
  239. %%%%%%%%%%%%%%%%
  240. {\bf !!}\ks{title}\{Lobe den Herren\}
  241. \ks{composer}\{Hugo Distler\}
  242. \ks{voice}\{Sopran\}
  243. \ks{treble}\ks{signature}\{{`}{`}xf\}
  244. \ks{text}\{\ks{\os{ }l} Schnell\}
  245. \ks{meter}\{{\bf3}\slash {\bf4}\}\ks{vocal}
  246. \par  {\bf\{\ \ \
  247. 4g\ks{mezzoforte} g {`}{`}d\strich `h. 8a 4g\strich f e d \strich 2e
  248. \ks{slur}\{4f\strich\ks{meter}\{2\slash 4\} f\} 4g\strich
  249. \par\ks{meter}\{4\slash 4\} 2a 2g\dpkt\strich\strich
  250. \ks{meter}\{3\slash 4\} 4{`}{`}d d d \strich 2.e 0p\strich
  251. \par `4h 8{`}{`}c c
  252. \ks{group}\{4d\strich 8d e d `h 4{`}{`}d\strich 8d e 4.d 8e\strich 4.d\}
  253. \ks{gslur}\{1-3, 1-13\}\par
  254. \ks{gbeam}\{3-6, 9-10\} 8c 4`h\strich 2a
  255. \ks{piano} 0p\ks{beam}\{8h g\}\strich\par 2a \ks{decr} 0p
  256. %ks{beam}\{8h g\}\strich\par 2a \ks{decr} 0p
  257. \ks{beam}\{8h \ks{text}\{{\rm zart}\}g\}\strich
  258.  {`}{`}2.d\ks{decr} 0p\strich
  259. \par `4d\ks{forte} .e 8f\strich \ks{meter}\{4\slash 4\} 2g 4a h\strich
  260. \ks{meter}\{7\slash 4\}\ks{slur}\{`{}`2c `4.h 8a 4g 2a\}\strich
  261. \ks{meter}\{3\slash 4\} 2.g \gleich\ \ \ \} }
  262. \{\ \ \ \{Lo-\bs{atop} Mei-\} \{be\bs{atop} ne\} \{den\bs{atop} ge-\}
  263. \{Her-\bs{atop} lie-\} \{ren,\bs{atop} be-\}\par
  264.  \{den \bs{atop} te\} \{m"ach-\bs{atop} See-\}
  265.  \{ti-\bs{atop} le,\} \{gen\bs{atop} das\} \par
  266.  \{K"o-\bs{atop} ist\}
  267.  \{nig--\bs{atop} mein--\} \slash\
  268.  \{der\bs{atop} Be-\} \{Eh-\bs{atop} geh-\}
  269.  \{ren!\bs{atop} ren.\}
  270. \par Kom- met zu Hauf! Psal- ter und Har-
  271. \slash\ \slash\ \slash\
  272. \slash\ \slash\ \slash\
  273. \slash\ \slash\ \slash\ \slash\
  274. fe, \par
  275. wacht auf, wacht \slash\ auf, wacht\ \slash\ auf, \par
  276. las- set
  277. den Lob- ge- sang h"o-
  278. \slash\ \slash\ \slash\ \slash\
  279. ren!\ \ \ \}{\bf!!}
  280. \vfill\eject
  281.